#string_clean

string_clean <- function(string = ""){
  library(stringr)
  special_chars <- read.csv("https://gitee.com/ry2an/my_public_functions_r/raw/master/special_char.csv")
  for(i in 1:dim(special_chars)[1]){
    string <- str_replace_all(string = string, 
                              pattern = special_chars$special_char[i], 
                              replacement = special_chars$repl_char[i])
  }
  return(string)
}

#### TEST AREA ####

# string_clean(string = "我的天哪，我的标点符号！！全都；变得标准了。")


